﻿Imports BUS
Public Class frmImportExcel : Inherits DevComponents.DotNetBar.Office2007Form


    Private m_strFileName As String
    Public Property FilePath() As String
        Get
            Return m_strFileName
        End Get
        Set(ByVal value As String)
            m_strFileName = value
        End Set
    End Property

    Public Function ImportFromExcel(ByVal tablename As String) As DialogResult
        If (New CExportExcelBUS().ImportTableFromExcel(m_strFileName, tablename)) Then
            lbImport.Text = "Import thành công"
        Else
            lbImport.Text = "Import thất bại"
        End If

        Return DialogResult.Cancel
    End Function

End Class